Option Explicit
'ۭqҲ
Private Sub UserForm_Activate()
    Dim myCnt As Control
    Dim myStr As String
    'wFrame
    For Each myCnt In Frame1.Controls
        myStr = myStr & myCnt.Name & vbCrLf
    Next
    MsgBox myStr
End Sub
